home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00804_SU-OU 1 co.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  602 b   |  22 lines
  1. on enterFrame
  2.   global gMaxBoutons, g1erSprLoc, g1erSprChr, gLabel, exitFrame, gBoutons, gScopeCo0, gScopeCo1, gPosVideo, gPosDebP, gPosDebS0, gPosDebS1, gPosDebE
  3.   curseur(6)
  4.   if gLabel <> "SU:IN CO" then
  5.     gBoutons(relache, g1erSprLoc + 1)
  6.     gScopeCo1(visible, 0)
  7.     gScopeCo1(Box, 1, 1, 1, 1)
  8.     if gLabel <> "SU:IN SU" then
  9.       gScopeCo0(unLoad)
  10.       repeat with i = g1erSprChr to gMaxBoutons
  11.         puppetSprite(i, 0)
  12.       end repeat
  13.     else
  14.       repeat with i = g1erSprLoc + 10 to gMaxBoutons
  15.         puppetSprite(i, 0)
  16.       end repeat
  17.     end if
  18.   else
  19.     nothing()
  20.   end if
  21. end
  22.